program writeformat

	implicit none
	write(unit=*,fmt="(A5,I5,A5,I5)") "a", 1, "b", 2
	STOP
end program
